home *** CD-ROM | disk | FTP | other *** search
/ Aminet 44 / Aminet 44 (2001)(GTI - Schatztruhe)[!][Aug 2001].iso / Aminet / comm / mail / TruncateMail.lha / TruncateFolder.yam next >
Text File  |  2001-06-09  |  936b  |  30 lines
  1. /********************************************
  2.  *     TruncateFolder arexx script v1.1     *
  3.  *     Author: Marek "March" Szyprowski     *
  4.  *       E-mail: march@staszic.waw.pl       *
  5.  *            Date: 09.06.2001              *
  6.  * * * * * * * * * * * ** * * * * * * * * * *
  7.  * Requiments: Yam 2.3+, TruncateMail v3.0+ *
  8.  ********************************************
  9.  * History:                                 *
  10.  * 1.1 - fixed problems with YAM 2.3+, does *
  11.  *       not work with older version of YAM *
  12.  * 1.0 - first, initial realase             *
  13.  ********************************************/
  14.  
  15. OPTIONS RESULTS
  16.  
  17. ADDRESS YAM FOLDERINFO 
  18.   
  19. finfo = reverse(result)
  20. parse var finfo . . . . . fpath .                        
  21. fpath = reverse(fpath)
  22.             
  23. text = "Processing mail files in dir '"||fpath||"'..."
  24.  
  25. ADDRESS YAM 'APPBUSY "'||text||'"'
  26.  
  27. ADDRESS COMMAND 'truncatemail '||fpath||'/0#? checkdate'
  28.  
  29. ADDRESS "YAM" APPNOBUSY
  30.